|
Rund um AutoCAD : Texteditor AutoCAD 2009
Dober Heinz am 17.07.2008 um 09:33 Uhr (0)
Hallo CyrilIch glaube,dass kann das Problem lösen : http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=11581572&linkID=92406 18 ------------------ Heinz
|
|
Lisp : Reaktoren
Dober Heinz am 16.01.2008 um 11:17 Uhr (0)
Hallo LisplerBeschäftige mich gerade mit den Reaktoren.Habe folgenden Code von Lisp-Buch kopiert und getestet.Wenn ich eine Bemassung wähle funktioniert der Code, es wird ein Layer angelegt.Aber wenn ich eine Schraff wähle geschied nichts, kann mir bitte einer sagen wo der Fehler liegt.Danke; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . ...
|
|
Lisp : Reaktor wieder laden
Dober Heinz am 31.03.2008 um 10:11 Uhr (0)
Hallo FuchsiHier das lispCode:; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . cmd-end-callback)) )); Funktion zum Setzen der Reaktoren(defun add-cmd-reactors( / ) (vl-load-com) (if(not *cmd-reactor-added*) (progn (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-comma ...
|
|
Lisp : Reaktor wieder laden
Dober Heinz am 07.04.2008 um 08:24 Uhr (0)
Hallo Danke für eure HilfeHabe es so gelöst, und es funktioniertCode:; Funktion zum Setzen der Reaktoren(defun c:reaein() (vl-load-com) (if(not com:react) (progn (setq com:react (vlr-command-reactor nil ((:vlr-commandWillStart . cmd-start-callback) (:vlr-commandEnded . cmd-end-callback) (:vlr-commandCancelled . cmd-end-callback)))) (princ "Reactor EIN ") ) ;ende progn ) ;ende if (princ) ) ;ende c:reaein (defun c:reaaus() (if com:react (progn (vlr-remove com:react) (setq com ...
|
|
Lisp : Änder der Schraffurfarbe im Block
Dober Heinz am 15.07.2011 um 19:47 Uhr (0)
Hallo Frage wie kann ich die Farbe der Schraffur im Block ändern.Habe ihr einen Code der mir die Farbe änder ist ok so.Aber jetzt will ich, das ich die Schraffurfarbe im Block, z.B auf Layer null legen kann. Code:(defun GetBlockEntity (#blockname / retlst) (if (tblsearch "BLOCK" #blockname) (vlax-for each (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)) ) #blockname ) (setq retlst (cons each retlst)) ) )) (defun ChangeColor (#vlaOb ...
|
|
ZWCAD : ZWcad2009i
Dober Heinz am 21.08.2009 um 08:58 Uhr (0)
Hallo TheodorUnd wie sieht es hiermit aus.(defun c:RevON ( ) (vl-load-com) (if (not *rev-reac*) (progn (setq *rev-reac* (vlr-command-reactor nil (list (cons :vlr-commandWillStart rStart) (cons :vlr-commandCancelled REnd) (cons :vlr-commandEnded REnd)))) (if (not (tblsearch "LAYER" "REVCLOUD")) (vla-put-color (vla-add (setq *lay (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))) "REVCLOUD") acCyan)) (vla-put-color (vla-ite ...
|
|
Rund um AutoCAD : Info Hotfix
Dober Heinz am 03.11.2011 um 14:51 Uhr (0)
http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=18022638&linkID=9240618 ------------------ Heinz
|
